The Image::Exif Perl extension allows the user to use the 
libexif library to extract EXIF information from JPEG 
files created by digital cameras.
